﻿Imports BUS

Public Class UserControlXemDanhSachPhieuGui

    Private Sub UserControlXemDanhSachPhieuGui_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pgtBus As New PhieuGoiTienBUS()
        Dim dt As New DataTable()
        lvwDanhSach.Items.Clear()
        dt = pgtBus.LayThongTinDanhSachPhieuGui()
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim lv As ListViewItem = lvwDanhSach.Items.Add((i + 1).ToString())
            lv.SubItems.Add(dt.Rows(i)("MaPhieuGoi"))
            lv.SubItems.Add(dt.Rows(i)("MaSo"))
            lv.SubItems.Add(dt.Rows(i)("MaKhachHang"))
            lv.SubItems.Add(dt.Rows(i)("SoTienGoi"))
            lv.SubItems.Add(dt.Rows(i)("NgayGoi"))
        Next
    End Sub
End Class
